home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / clang / fgl105c.zip / 05-11.C < prev    next >
Text File  |  1991-06-15  |  453b  |  26 lines
  1. main()
  2. {
  3.    int old_mode;
  4.    int red, green, blue;
  5.  
  6.    old_mode = fg_getmode();
  7.    fg_setmode(19);
  8.  
  9.    fg_setcolor(103);
  10.    fg_text("Hello",5);
  11.    fg_waitfor(18);
  12.  
  13.    fg_getrgb(103,&red,&green,&blue);
  14.  
  15.    while (red+green+blue > 0) {
  16.       if (red > 0) red--;
  17.       if (green > 0) green--;
  18.       if (blue > 0) blue--;
  19.       fg_setrgb(103,red,green,blue);
  20.       fg_waitfor(1);
  21.       }
  22.  
  23.    fg_setmode(old_mode);
  24.    fg_reset();
  25. }
  26.